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I7861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 04 1786.1, == SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE O4A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


00288E 767 F00009 EQU- * 000021 8834+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 
00288E 0001 768 DC AT2 (0001) 000022 884+XT FOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 
002890 0028 169 DC A (0040) 000023 885+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 
002892 D9SC5D7D3C1C3C5404 770 DC CLOOYO*REPLACE (FCU) CARDS A-A1C2 AND A-A1D2. ! 000024 886+XE EQu. =36 a 8 EXPECTED ae RESPONSE 
OO28BA 771 FO0150 EQU ry 000025 887+tHE EQU 37 5 4 HARD ERROR RETRIES 
OO28BA 0001 772 DC AL2 (0001) 000026 888+$LE EQU 38 6 2 INTERRUPT one WRONG LEVEL ERROR 
0O28BC OO01E 773 DC 4 (0030) 000027 889+NI EQU 39 7 1 NO INTERRUPT EXPECTED E 
OO28BE DICSD7ICICODI4ODED 774 DC CLOO30"REPAIR OR REPLACE A-A1 BOARD. ! 000028 890+CS FQU 40 8 8 CYCLE STATUS IN PROGRESS 
0028DC 775 F00012. EQU. * 000029 8914+CSA FOU 41 9 4 CYCLE STEAL AVAILABLE 
0028DC 0001 776 pe AL2 (0001) 00002A 8924CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 
OO28DE 0014 777 DC 1/0020) 00002B 893+ISBON EQU 43 11 1 ISB BITS ON if 1) 
0028E0 D9ICSD7D3C1C3C540c 778 DC CLOO20"*REPLACE CARD A-A1H2. 00002C 8944NG EQU 44 12 8 TEST UNIT RESULTS NO GOOD 
0028F4 779 FO0160 EQU- * 00002D 8954+I0CC EQU 45 13 4 OTO CC ERROR 
OO28F4 0002 780 Dc AL2 (0002) Q00002E 896+NOIN EQU 46 14 2 NO INTERRUPT 
0028F6 0014 781 DC A (0020) 0000 2F 897+INCC EQU 47 15 1 INTERRUPT CC ERROR 
0028F8 D9IC5SD7D3C1C3C540C 782 DC CLOO20*REPLACE CARD A-A1H2.! 8984* 
00290C 0022 783 DC A (0034) 899+* COMMON BUFFER FOR PRINTING DATA 
00290E D9ICSD7D3C1C3C540C 784 DC CLOO34*REPLACE CARD A-A1G2. (SEE NOTE 1) * 900+* 
002930 785 F00164 EQU * 002c04 0000 902+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
002930 OO0O0EF 786 D AL2 (0014) 002c06 0000 903+$IOIN DC A (*-* i O AND INTR CONDITION CODES 
002932 OOOA 787 DC A (0010) 002c08 0000 9044+$ISB DC A (*#-% INTR STATUS BYTE & DEV ADRS 
002934 D7D6E6C5SD940D6EC6EC 788 DC CLOO10"POWER OFF.! 002c0aA 0000 905+LSTIO DC A (¥-* ADRS 0 LAST If) + 4 BYTES 
003940 CICSESENCIESDED94 190 De choo O09C0e 9000 QO7sDEV2 DG Ataax DEVICE DEPENDENT Data 
CL ACTUATOR ARM SHOULD BE AT THE INNER STOP. ! = 
00296A 0020 791 DC A (0032) “ 002610 0000 908*DEV3 DG Ate-* * 
00296C C9OC64O0DED26B40D9C 792 DC CLOO32"IF OK, RETURN 4962 TO CUSTOMER. ! 002C12 0000 JOI+DEV4 DC A Ce>* * 
00298C 0022 793 DC A (0034) 002C0C 910+SCTID EQU  DEV1 READ ID BUFFER FOR IBIS & TERN 
00298E C9OCE4OD5D6E3406B4 794 DC CLOO34"IF NOT , FAILURE IS PROBABLY VERY ! 002C14 Q11+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 
002980 0026 795 DC 2 (0038) 002c14 0000 912+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 
0029B2 C9SDSE3C5DIDUCIE3ZE 796 DC CLOOZ8*INTERMITTENT. REPLACE FRU''""*S IN THE ORDER! 002C16 0000 9134+DCB2 DC A (¥-* LAST DCB TABLE, DEV DEP WORD 
0029D8 0006 7197 DC A (0006) 002C18 0000 9144+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
0029DA E2C8D6E6D57A 798 DC CLOO06*SHOWN:* 002C1A 0000 915+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
0029F0 0014 799 DC A (0020) 002c1ic 0000 916+DCB5 DC A (%—* LAST DCB TABLE, DEV DEP WORD 
0029E2 DICSD7D3cic3c540Cc = 800 DC CLOO20"REPLACE CARD A-A1H2. 002C1E 0000 917+DCB6 DC A (*—* LAST DCB TABLE, CHAIN ADRS 
0029F6 0022 801 DC A (0034) 002C20 0000 918+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 
002988 D3C3D7D3C 1C3C540C 802 DC CLOO 34 REPLACE CARD A-A1G2. (SEE NOTE 1) ! 002C22 0000 219+DCB8 DC A (#-* LAST DCB TABLE, BUFFER ADDRESS 
002A1C D9CSD7D3C1IC3C540C 804 DC ¢10034¢ REPLACE CARD A-A1J4. (SEE NOTE 1) * 002C24 921+CSBUF EQU) * CYCLE STEAL DATA BUFFER 
OO2A3E 0022 805 ite A (0034) 002C24 0000 922+CSTL1 DC A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 
002A40 D9CSD7D3C1C3C540C 806 DC CLOO34*°REPLACE CARD A-A1K4. (SEE NOTE 1) ! 002C26 0000 923+CSTL2 DC A (*¥-* CYCLE STEAL WD 2, DEVICE DEPEND 
002462 0022 807 DC A (0034) 002C28 0000 9244+CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 
002A64 D9C5D7D3C1C3C540C 808 pc CLOO34"REPLACE CARD A-A1K2. (SEE NOTE 1) ! 002C2A 0000 925+CSTLY DC A (#—* CYCLE STEAL WD 4, DEVICE DEPEND 
00O2A86 0002 809 DC (0002) 002c2c 0000 926+CSTLS DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 
002A88 4040 810 DC CLOOO2* * 002C2E 0000 927+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 
OO2A8A OO2A 811 DC A (0042) 002C30 0000 928+CSTL7 DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND 
OO2A8C CUCS4OE4DSCIE4O4 812 DC CLOO42'DE UNIT (SEE 4962 MIM , PARAGRAPH 3.5 FOR ! 002c32 0000 929+CSTLE DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 
OOZ2AB8B D7DOD6C3C5CHEYDIC 814 Dc €10013% PROCEDURE) . ‘ 002C34 0000 931+$SUBN DC (eo) | LAST SUBROUTINE ADDRESS USED 
OO2AC4 815 F00185 EQU * 002C36 00000000 932+SDATA DC 2A (*¥-* OPTIONAL DATA 
OO2AC4K 0003 816 pc AL2 (0003) 002C3A 0021 933+$SINTL DC X "002 INTERRUPT LEVEL REQUESTED 
OO2AC6 0018 817 Dc A (0020) 002c3Cc 0000 934+TURTN DC A (*-* TEST UNIT RETURN ADRS TO MDI 
00O2AC8 DICSD7D3C1IC3C540C 818 DC CLO020*REPLACE CARD A-A1H2.° 002C3E 00B2 I35+SDVID DC X"00B DEVICE ID 
OO2ADC 0022 819 DC A (0034) 002C40 19D0 936+SVCAL DC F (DEVADD) ADRS OF DEVICE ADDRESS 
OO2KDE DEC3D7D3CIC3C540C 820 te C 10034 REPLACE CARD A-A1J4. (SEE NOTE 1) ! | 002C42 0000 oo it. DC A (*-* IBIS CYLINDER ADDRESS 
002B02 D9C5D7D3C1IC3C540C 822 DC (10034) REPLACE CARD A-A1G2. (SEE NOTE 1) ° 9394+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
002B24 823 F00189 EQU- * Q40+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
002824 0902 B24 DC AL2 (9002) apes STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
DC A 

002B28 D9C5SD7D3C1C3C540C 826 Dc ane eel REPLACE CARD A-A1H2.° O002C44H 4020 2C04 3C02 943+T3C02 MVWI xX'3C02',S$TUID SET UP TEST UNIT ID 
002B3c 0022 827 DC A (0034) 002C4A 5700 944+ BXxS R7 RETURN TO MDI SUPVR 
0OO2B3E D9C5D7D3C1C3C540C 828 DC CLOO34*REPLACE CARD A-A1d4. (SEE NOTE 1) * 946 COPY COMEQU 
002B60 829 F00201 EQU * QU] He ie Re He Re He Be he ae hee he Se ae he Be He Hee HE He He He he He He Hee He ae ae he Hc he ae she ee Ae He he she he He He He ae He He He Ke he ah 3h ae He ake hc ae Seale ee afc ae ie he ke akc ae 2k 
002B60 0002 830 D AL2 (9002) 948 * ! * 
002B62 0014 831 DC A (0020) 949 * FQUATED NAMES FOR SUPPORTED SVC'S % 
002B64 D9C5D7D3C1C3C540C 832 DC CLOO20"*REPLACE CARD A-A1H2.! 950 * * 
002878 0022 833 pc A (0034) QS Ha He eK Be ie a he ake ae ae he he he he Me he ah af 2h he he 2c he ae he He ak he ie he ea ah he 2 ae ae ate Se a fe ah a a Re ae cae a ake ae 3h fe ae He afc ake ae oe ae he a eK oo oe 
002B7A D9C5SD7D3C1C3C540C 834 DC CLOO34"*REPLACE CARD A-A1J4. (SEE NOTE 1) ! 000000 952 OUT EO 0 ouUT SVC 
002B9C 835 FOOO14 EQU x 000001 953 OUTIN EQU 1 OUTIN SVC 
002B9C 0001 836 DC AL2 (0001) 000002 954 IDLE EQU 2 IDLE SVC 
OO2B9E 0022 837 DC A (0 34) 000003 955 ASCII EQU 3 HEX TO ASCII SVC 
00O2BA0 D9C5D7D3C1C3C540C 838 DC CLOO34"*REPLACE CARD A-A1K2. (SEE NOTE 1) ' 000004 956 CHNGE EQU) 4 CHANGE LEVEL SVC 
002BC2 839 F00221 EQU*® 000005 957 PGMCK EOU) 5 ALLOW RETURN ON PROGRAM CHECK SVC 
002BC2 0002 840 DC AL2 (0002) 000006 958 EXIT EQU 6 EXIT SVC 
OO2BC4 0014 844 pc A(O 20) 000007 959 TERM EQU 7T TERNINATE SVC 
002BC6 D9IC5SD7D3C1IC3C540C 842 DC CLOO20"REPLACE CARD A-A1H2.° 000008 960 RESET EQU) 8 RESET DEVICE SVC 
OO2BDA 0022 843 pc A (0034) 000009 961 RID EOU 9 READ ID SVC 
002BDC DICS5D7TD3CIC3C540C 844 DC CLOO34*REPLACE CARD A-A1J4. (SEE NOTE 1) !* QOOOOA 962 START EQU 10 START CYCLE STEAL SVC 

845 DIT OOB2 00000B 963 STCSS EQU- 11 START CYCLE STEAL STATUS SVC 
O02BFE 0000 8474+0PTN1 DC x* 00008 PROGRAM OPTION CONTROL #ORD 1 00000C 964 PREP EQU {12 PREPARE DEVICE SVC 

BU 84% 00000D 965 READO EOQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
002c00 0000 849+OPTN2 DC X*'0000! PROGRAM OPTION CONTROL WORD 2 O0000E 966 READ1 EQU) 14 READ WITH FUNCTION BIT 3 ON SVC 

8504+* BIT HEX 00000F 967 RSTAT EQU 15 READ STATUS SVC 
000010 8514+B48 EOU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000010 968 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 852+BU9 EOU 17 1 rm * 000011 969 WRIT? EOU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000012 853+B50 EO6U 18 2 2 * THESE BITS ARE USED WITH THE 000012 970 CTRL EQU 18 CONTROL SVC 
000013 854+B51 FOU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 971 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000014 855+B52 EOO 20 rT 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 972 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000015 856+B53 EOU 21 5 rT * 000015 973 HIO EQU 21 HALT ALL Ze 
000016 8574#B54 EOU 22 6 2 * 000016 974 RECSD EQU 22 REQUEST USE OF DCP DISK SVC 
000017 8584B55 EO0U 23 7 1 * 000017 975 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 859+B56 EOU 24 8 8 * 000018 976 HALT EQUD 24 HALT SVC 
000019 860+B57 EOU 25 9 7 * 000019 977 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
OOOO1A 8614+B58 EOU 26 10 2 * OOOO1A 978 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
00001B 862+B59 EOU 27 11 1 * 00001B 979 ATOH EQU 27 ASCII TO HEX SVC TRING 
00001C 863+B60 FOU 28 12 8 * 00001C 980 HTOA EQU 28 HEX TO ASCII SVC (STRING 
90001D 864+4+B61 EOU 29 13 mM * 00001D 981 ETOA EQU 29 EBCDIC TO ASCII §S STRING 

OOO1E 865+B62 EOU 30 14 2 * QOOO1E 982 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 

00001F 866+B63 EOU 31 15 1 * 00001F 983 READI EGU 31 READ DATA SETS FOR MDI/UTIL 
000012 867+CH EOU 30 14 2 CHARACTER SUPPLIED 000020 984 WRITI EQU 32 WRITE DATA SETS FOR OTIL 
OOOO1F 86 84¢CMP BOU 31 15 1 COMPARE OPERATION QGQG BERKKAKKCKKKKKKKKKKKKKKKKEKKEKCKKKKKKKKKKKKKRKKKKKEKK KECK CKKKKKEKKEKEKAREK 
002c02 0000 870+OPTN3 D X'0000! PROGRAM OPTION CONTROL WORD 3 987 * - 

a7ie% Oy aiehee ae nae : 388 : EQUATES USED BY TUS AS CONSTANTS . 

+ 

8734* 14 ob Ee a aeasnee 7 ae S ce eee eraeTe PROGRESS ae GOD SRREKKKEKHEKKE KEE EKER EKA K KKK RES KEKE KK KEKE KKK EKEKERKKKKERES 

ise 3 nnennope eecerves in} SSe HERS on THERE? FP SEsoy 980080 a3) arwis wey StS REnGS" CHR 

8764* ae 000000 994 ZERO EQU O 

877+* & EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 000001 995 ONE EQU 1 

878+* 5 HARD ERROR FOUND HE 13. OIO cC ERR Tocc 000002 996 THO EQU 2 

8794+#* 6 WRONG INTR LEVEL SLE 14 WO INTERRUP t NOIN 000003 997 THREE EQU) 3 

Sed 7 WO INTR EXPECTED WI 15 INTERRUPT CC ERROR INncc 000004 998 FOUR EQOU 4 

8814*% BIT HEX 000005 999 FIVE EQU 5 
000020 882+NI EFQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000006 1000 SIX EQU) 6 
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17861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 05 17861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE OSA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000007 1001 SEVEN EQU 7 0O2C8A CA25 18C8 1118 MVWZ TURESUL,P2 CLEAP RESULTS WORD 
000008 1002 EIGHT EOQU 8 002C8E CA25 18CA 1119 MVWZ TURESUL+2,R2 CLEAR RESULTS WORD2 
000009 1003 NINE EOU 9 002C92 4224 18C8 1120 MVA TURESUL, R2 ADDRESS OF RESULTS 
OOO00A 1004 TEN EOU 10 002C96 6E03 33F6 1121 BAL $RECL, R6 RECALTIBRATE 
00000B 1005 ELEVN EQU 11 11 0OO2C9A 2CE4 1122 DC A (T234¥) ERROR 
00000C 1006 TWELV EQU 12 12 002C9C 4CA1 1123 TBTR R) INTERRUPT ERROR? 
00000D 1007 THRTN EOU 13 13 0O02C9F 1032 1124 JOFF 71 NO 
OOO000F 1008 FIVTIN EOU 15 15 0OO2CA0 4caAsd 1125 TBTR (RG CSA) TST FOR CYCLE STEAL STATS 
000010 1009 SIXTN EOU 16 16 002CA2 6800 3604 1126 BOFF ERS EPROR 
000020 1010 THRY2 EOU 32 32 OO0O2CA6 8828 2C26 32F0 1127 MVW CSBUF+2,STATS ADDRESS OF CYCLE STEAL STATS 
000040 1011 SIXT4 EQU 64 64 OO2CAC 4524 32F0 1128 MVA  sTats,R5 xx 
000080 1012 ONE28 EQU 128 128 002CB0 4D87 1129 TBTR {R° 7) UNSAFE? 
000100 1013 TWO56 EQU 256 256 002CB2 1001 1130 JOFF 1238s NO 
000400 1014 ONEK EQU 1024 1024 OO2CB4U 4AKC 1131 TBTS R2,12 SET- UNSAF 
000800 1015 TWOK EOU 2048 2048 002CB6 4UD8A 1132 T23SS TBTP R5,10 BRAKE PRILUPE? 
000C00 1016 THREK EOU 3072 3072 002CB8 1001 1133 JOFF 723fT NO 
001000 1017 FOURK EQU 4096 4096 OO2CBA 4AUB 1134 TBTS R2,11) SET- BRAKE FAILURE 
FFFFFF 1019 EQU -14 -1 OO2CBC 4D86 1135 T23TT TBTR R5,6) PLO OUT OF SYNC CHECK? 
FFFFFE 1020 M2 FOU -2 -2 OO2CBE 1001 1136 JOFF 12360 NO 
FFFFFD 1021 M3 EOU -3 -3 002CcCO 4AGA 1137 TBTS R2,10) SET- PLO OUT OF SYNC 
FFFFFC 1022 M4 EQU - -4 002cC2 4Dp89 1138 T230U TBTR R5,9) SEEK CHECK? 
VOD Ae He Se He ae ee 2 a HE I EO RR RH RR RR I CE a RR a aa a ai ae ok a ae ak 002cc4 1001 1139 JOFF 23h NO 
1025 * * 002CC6 4A43 1140 TBTS R2,3) SET—- SEEK CHECK 
1026 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 002cC8 4D8B 1141 T23A TBTR R5,11 RESET UNSAFE BITS 
1027 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * OO2CCA 4D8C 1142 TBTR R5,12 * 
1028 * * 002cCCC 4D8D 1143 TBTR R5,13 
1029 PE SLPS eS SS SS SSS SSS SSS SS SS SSS ESE SL SSE SSL LSS SSL ESL ELS EL SLL SL SSS 2S 2s tt SS 2 2 SS" OO2CCE “O?FE 32F0 0000 1144 CWI STAT OTHER ERROR RITS ON? 
000000 1030 BSO EQU O0O2cD4 6800 2D14 1145 BE 7530 NO-EXIT 
000001 1031 BS1 EQU 1 002CD8 4A4D 41146 T23AA TBTS R2,13) SET RECAL FAILURE 
000002 1032 BS2 EQU 2 OO2CDA 4A4O 1147 TBTS R2,0) SET- INTERRUPT ERROR 
000003 1033 BS3 EQU. 3 002CDC 8828 2C26 18CA 1148 MVW SBOF+2,TURESUL+2 CS STATS 
000004 1034 BS4 EQU rm OO2CE2 5018 1149 J T23U EXIT 
000005 1035 BSS FOU 5 OO2CE4 7BO6 0003 1150 T23YY CWI X¥'0003',R3 CHECK FOR COMMAND REJECT 
000006 1036 BS6 EOU 6 OO2CE8 6801 3604 1151 BNE SERRS ERROR-TU NG 
000007 1037 BS7 EQU 7 OO2CEC 6E03 34C8 1152 BAL XIOCS ,R6 START CYCLE STEAL STATS 
000008 1038 BS8 EOU 8 OO2CFO 3604 1153 DC A (SERR$) ERROR 
000009 1039 BS9 EOU 9 OO2CF2 4CA1 1154 TBTR ged ER) INTERRUPT ERROR? 
OOOOOA 1040 BS10 EQU 10 OO2CF4 6A00 3604 1155 BON ERRS YES 
00000B 1041 BS11 EOU 11 OO2CF8 402B 2C26 0001 1156 TWI X¥'0001',CSBUF+2 NOT READY? 
00000C 1042 BS12 EOQU 12 OO2CFE 10EC 1157 JOFF T23AA NO-ERROR 
00000D 1043 BS13 EQOU 13 002D00 4A4E 1158 TBTS {22 14) SET NOT READY 
O0000E 1044 BS14 EOU 14 002D02 SOEA 1159 J 23Ka EXIT 
OO0000F 1045 BS15 EQU 15 002D04% 6E03 332E 1160 1710 BAL SENS1,R6 GET SENSE WORD ONE 
1047 COPY 17823 01DEC76 002D08 3604 1161 DC A (SERBS) ERROR 
1048 £7823 TUIT SERRS 00O2D0A 402B 336A 0400 1162 TWI X'O400',RDATA TEST HOME POS 
VO GS A eH Be He ee He He ee HH ee ee ee ee ee He Be 3 3 ee ae he he he He ek 2c ok Ae ok oe eek KKK OG F EBT 6** 002D10 1201 1163 JON 7230 HOME IS ON 
1050+* 002D12 4A4U1 1164 TBTS (R2,1) SET tHOME OFF? 
10514+* TEST UNIT 1165 £230 TXIT 
1052+* 002D14 6802 3654 116647230 B SCONX RETURN TO MDI CONTROLLER 
Vaeaee (TU23-TU71) RECALIBRATE TEST #1 12/01/76 VG 7 RRR RK RHR KK RR RHI RK I IR I RR OR ROR FOR OR RR RR Fa a a tok dak kik fear ak ak 
1054+* 1168 * 
1055+* PURPOSE 1170 COPY 17870 01DEC76 
1056+* 1171 T7870 "UIT $ERRS 
epee FUNCTION: TO DETERMINE THE OPERATIONAL STATUS OF RECAL FUNCTION. | WUC eee Re en ee SE ae ree wings RMI nee ent rR are eC Ey Ome 
+ - 1173+% 
1059+* : PROGRAM INITIALIZES ATTACHMENT. 11744+* TEST UNIT 
1060+* : RECALIBRATE 1175+4+% 
1061+%* . CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO THE 1176+% FILE STATUS TEST 6/13/77 
1062+* . RECALIBRATE OPERATION. 11774 
1063+%* 1178+* PURPOSE 
1064+* CALLING SEQUENCE 1179+ 
1065+% 1180+%* FUNCTION: INITIAL RESET OF SEEK OPERATIONS. 
10664* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 1181+* ; 
1067+* : TURESUL BIT 0------------ INTERRUPT ERROR 1182+%* 7 PROGRAM INITIALIZES ATTACHMENT. 
1068+* R TURESUL BIT 1------------ HOME POSITION NOT ON 11834+* : CHECK STATUS OF LINES IN ATTACHMENT AND 4962 RELATED TO SEEKS 
1069+* z TUORESUL BIT 2------------ NOT USED 1184+4* 
or TURESUL BIT 3------------ SEEK CHECK (SEEK COMPLETE TIME OUT 1ig5+s CALLING SEQUENCE 
4 ~ + 
1072+* : TURESUL BIT 4------------ NOT USED 11874+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
1073+* TURFSUL BIT 5----------- NOT USED 1188+% . TURESUL BIT 0------------ FLO OUT OF SYNC CHECK 
1074+% : TURESUL BIT 6------------ NOT USED 1189+% ‘ TURESOL BIT 1------------ DATA UNSAFE 
1075+* F TURESUL BIT 7----------- NOT USED 1190+* ; TURESUL BIT 2------------ INTEPRUPT 
1076+* a 11914* : TURESUL BIT 3------------ FILE NOT READY 
1077+* " TURESUL BIT 8------------ RESEPVED (ALWAYS ZERO) 11924% 
1078+* : TURESUL BIT 9----------- NOT USED 119 34+* n TURESUL BIT 4------------ RECAL 
1079+ . TURESUL BIT 10--------- PLO OUT OF SYNC 11944 ; TURESUL BIT 5----------- NOT USED 
1080+* : TURESUL BIT 11--------- BRAKE FAILURE 11954+* , TURESUL BIT 6------------ NOT USED 
1081+* é 1196+* ‘ TURESUL BIT 7----------- NOT USED 
1082+* . TURESUL BIT 12--------- UNSAFE 1197+* : 
1083+* 7 TURESUL BIT 13--------- RECALIBRATE FAILURE 1198+4% 3 TURESUL BIT 8------------ BEHIND HOME 
1084+* 2 TURESUL BIT 14--------- NOT READY 11994* a TURESUL BIT 9----------- ACCESS HEAD NOT HOME 
1085+* : TURESUL BIT 15--------- NOT USED 1200+* TURESUL BIT 10---------- (NOT) EVEN TRACK INDICATED 
1086+* . 1201+* ‘ TURESUL BIT 11----------- 
1087+* ; TURESUL BITS 16-31----- CYCLE STEAL STATUS FOR FAILING OP 1202+* 2 
1088+* : 12034* 7 TURESUL BIT 12—----------- RECALIBRATE NOT RESFT 
1089+* EXITS NORMAL 1204+* ; TURESUL BIT 13---------- NOT USED 
1090+* RETURNS TO MDI SUPERVISOR WHEN DONE. 1205+* : TURESUL BIT 14---------- SFEK § 2 NOT RESET 
1091+* é 1206+* - TURESUL BIT 15----------- (NOT) ‘08 TRACK 
1092+* EXITS ERROR 1207+* : 
109344 7 RETURNS TO MDI SUPERVISOR. 1208¢% : TURESUL BITS 16-31 CS STATS FOR FAILING OP 
+ + . 
1095+* RETURN CONTROL 1210+* EXITS NORMAL 
1096+* 1211+%* ; RETURNS TO MDI SUPERVISOR WHEN DONE. 
109 74+* B TURTN* RETURN TO MDI SUPERVISOR 1212+* : 
1098+ 1213+* EXITS ERROR 
VVEOL RIO AGG Re ca ee eee ce en re eee 1214+4+* a RETURNS TO MDI SUPERVISOR. 
002C4C 6FOD 2C3C 1100+T7823 MVW SAVE RETURN ADDRESS 1215+* 
002c50 4020 2c04 7823 1101+ MVWI Retgogte $STUID SAVE TU ID FOR DISPLAY 1216+* RETURN CONTROL 
002C56 4424 2BFE 1102+ MVA OPTN1, RA SET UP POINTER ADRS IN R4& 1217+ 
002C5A 6803 35D0 1103+ BAL SCONC. CLEAP DEV DEP STG AND CONNECT I/O BL 1218+% B TURTN* RETURN TO MDI SUPERVISOR 
002C5E 3604 1104+ pc A SEERS) ERROR ADRS FOR INVALID PREP 1219+4* 
1105+* 122 OH RH a a ae he ate A a 2 Cc a 2 Ce i fe ae a ea fe ke a 2 ae a cafe ae fe aie afc ake a fe ae ae fe fe afc ae af eae ae ake ae ake eae ae afe fe ae ae age aie ake ak ake ake 
002C60 c020 0232 1106 MVB CPUID,RO DETERMINE TYPE OF PROCESSOR 002D18 6FOD 2C3C 1221#T7870 MVW R7, TURTN SAVE RETURN ADDRESS 
002C64 F025 1107 CBI 37, R0 * 002D1C 4020 2c04 7870 1222+ MVWI X'47870' $TUID SAVE TU ID FOR DISPLAY 
002C66 1804 1108 INE 1237 JUMP IF NOT 4955 002D22 4424 2BFE 1223+ MVA GPTNI, RG SET UP POINTER ADRS IN R4 
002C68 4020 2C84 254c 1109 MVWI X'254C',T23T14+2 LOAD TIME CONSTANT FOR 2 SEC 002D26 6E03 35D0 12244 BAL $CONC, RE CLEAR DEV DEP STG AND CONNECT I/0 BL 
002C6EB 5003 1110 J T23T2 002D2A 3604 1225+ DC A (SERRS) ERROR ADRS FOR INVALID PREP 
002C70 4020 2C84 OCOR 1111 423T MVWI X"OCOE!,T23T1+2 1on5°b LOAD TIME CONS FOR 2 SEC 1226+% 
002C76 8028 19D0 3369 1112 T23T2 HVB DEVADD, £DCB1#1 OAD EVICE ADDRESS IN IDCB 002D2C 8028 19D0 3369 1227 MVB DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 
a33ea Gg3 Pe Te oa ler PEER i5gue, fo kegea o3253 cop 0282 138 ve ceurpragho? —ERBSRENECEt gabe f* TPCR 
D 
Q002C82 4024 0000 1115 T23T1 MVWI xX*0000',RO TIMEOUT APPROX 2 SEC 002D3C F025 1230 CBI 37,R0° x 
002C86 6002 1116 1723 SVC IDLE * 002D3E 1804 1231 INE T7470 JUMP IF NOT 4955 
002C88 B8FE 1117 ICT T723,R0 * O0O2D40 4020 2D56 254C 1232 MVWI X*254C! ,TT7OA42 LOAD TIME CONSTANT FOR 2 SEC 


17861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 06 17861 --- SEEK FAILURE MAP P/N= 1635284 EC=755285 PAGE O6A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 '  LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002D46 5003 1233 TT7OB 1349+* Z TURESUL BIT 10--------- PLO OUT OF SYNC 
002D48 4020 2D56 OCOE 1234 TT70 MVWI X'OCOE! ,TT70OAt+2 LOAD TIME CONSTANT FOR 2 SEC 1350+* 7 TURESUL BIT 11--------- BRAKE FAILURE 
OO2D4E 4724 35PC 1235 TT70B MVA TOBLK,R4 SETUP IOBLK 1351+%* y 
002D52 6008 1236 SVC RES ISSUE IO RESET 1352+* a TURESUL BIT 12—--------- UN 
002D54 4024 0000 1237 TT7OA MVWI xX'O0000!,RO TIME OUT 2 SEC 1353+* 7 TORESUL BIT 13--------- NOT USED 
002D58 6002 1238 TT70C SVC IDLE * 13544% , TURESUL BIT 14--------- NOT READY 
002D5A B8FE 1239 ICT TT70C,RO * 1355+ 3 TURESUL BIT 15--------- NOT USED 
002D5C CA25 18C8 1240 MVWZ TURESOUL,R2 CLEAR RESULTS WORD 1356+* a TURESUL BITS 16-31 CS STATS FOR FAILING OP 
002D60 CA25 18CA 1241 MVWZ TURESUL+2,R2 CLEAR RESULTS WORD 2 1357+* : 
002p64 4224 18c¢8 1242 MVA TURESUL,R2 ADDRESS OF RESULTS 1358+% EXITS NORMAL 
002D68 6E03 34C8 1243 1702 BAL XIOCS,R6 START CYCLE STEAL STATUS 1359+ RETURNS TO MDI SUPERVISOR WHEN DONE. 
002D6C 3604 1244 DC A (SERRS) ERROR 13604+%* > 
QOO2D6E 4CA1 1245 TBTR fee ER) INTERRUPT ERROR 1361+* EXITS ERROR 
002D70 6A00 3604 1246 BON ERRS YES 1362+% : RETURNS TO MDI SUPERVISOR. 
002D74 8828 2C26 32F0 1247 MVW CSBUF+2,STATS ADDRESS OF CYCLE STEAL STATUS 1363+% 
OO2D7A 4524 32F0 1248 MVA STATS, R5 * 13644* RETURN CONTROL 
002D7E 4D87 1249 TBTR (R375 TEST FOR UNSAFE 1365+* 
002D80 1001 1250 JOFF 701 1366+* R TURTN* RETURN TO MDI SUPERVISOR 
002D82 4AsT 1251 TBTS R2,1) TURN ON DATA UNSAFE 1367+% 
aoauae ee iGes 1701 iets Bos! ) TEST NOT READY 13.6 84 AE I OIG GIOIA IG III IOI IO IO GIAO I Ca 
D 002E00 6F0D 2c3c 1369477875 MVW TURTN SAVE RETURN ADDRESS 
0O02D88 4A43 1254 TBTS R2,3) TURN ON NOT READY 002E04 4020 2C04 7875 13704 MVWI X'4875', $TUID SAVE TU ID FOR DISPLAY 
OO2D8A 4D8B 1255 T702 TBTR R5,11 RESET UNSAFE BITS OO2FOA 4424 2BFE 1371+ MVA OPIN. R4 SET UP POINTER ADRS IN R4& 
a3Ree ORR5 1338 ERR R13 $0388 Seba 72° 332 Beh RGSESAY SHEOE Rivs" eon Hivkbeocgesee™ 27° © 
0 + 
$3350 4845 S2F0 0000 1g aT Saga "ial a ia ae | 
02E14 C020 0232 1375 MVB  CPUID,RO DETERMINE TYPE OF PROCESSOR 
002D98 4aAu4y 1260 TBTS (8379) RECAL ERROR paocda case 1376 CBI 37 RO’ 
OO2D9A 4AY2 1261 TBIS R2,2 INTERRUPT ERROR OO2F1IA 1804 1377 INE T747C aha TF NOT 4955 
002D9C 8828 2C26 18CA 1262 MVW CSBOF+2,TURESUL+2 CS_ STATS 002E1C 4020 2E4c 254c 1378 MVWI X'254Ct,T757T1+2 LOAD TIME CONSTANT FOR 2 SEC 
OO2DA2 501F 1263 J T7OA EXIT 002F22 5003 1379 J T7572 
OO2DA4 6E03 332E 1264 T70B BAL aEne ty GET SENSE WORD ONE 002E24 4020 2E4C OCOE 1380 T75TC MVWI X'OCOE!, T75T1+42 (4953) LOAD TIME CONS FOR 2 SEC 
0O2DA8 3604 1265 DC A (SERR 5) ERROR QO2E2A CA25 18C8 1381 T75T2 MVWZ TURESUL,R2 LEAR RESULTS WORD 
OO2DAA 4124 336A 1266 MVA RDATA,R ADDRESS OF SENSE DATA OO2F2E CA25 18CA 1382 MVWZ TURESUL4+2,R2 CLEAR RESULTS WORD 
OO2DAE 4901 1267 TBI Ant 1) TEST PLO OUT OF SYNC 002E32 4224 18C8 1383 MVA TURESUL, R2 ADDRESS OF RESULTS 
002DB0 1001 1268 JOFF 1703 002E36 6£03 33F6 1385 BAL  $RECL,RE RECALIBRATE 
002DB2 4a40 1269 TBTS R479 SET *PLO OUT OF SYNC! OO2E3A 2EAA 1385 Dc A (T75£Y) ERROR 
OO0O2DB4 4909 1270 T703 TBT R1,9 TEST NOT BEHIND HOME 002E3C SCAT 1386 TBTR (R4,ER) 
002DB6 1201 1271 JON 704 OO2ZE3E 8028 19D0 3369 1387 MVB DEVADD,IDCB1+1 LOAD DEVICE ADDRESS IN IDCB 
OO0O2DB8 4aA48 1272 TBTS RaSh SET BEHIND HOME OO2E44 4724 35BC 1388 MVA TOBLK,&7 SETUP IOB 
OO2DBA 4905 1273 T704 fTBT R1,5 TEST HOME POSITION 002E4U8 6008 1389 SVC RESET ISSUE IO RESET 
OO2DBC 1201 1274 JON 705 OO2ZE4A 4024 0000 1390 T75T1 MVWI xX'0000!,RO0 TIME OUT 2 SEC 
OO2DBE 4AK&9 1275 TBIS Rare SET ACCESS HEAD NOT HOME OO2E4UE 6002 1391 1775 svc IDLE * 
002DC9 4908 1276 T705 TBI Baa ) TEST EVEN TRACK 002E50 B8FE 1392 ICT Eee O. eres re eee 
002E52 CA25 18C8 1393 MVWZ TURESU 
002DC4 4AGA 1278 TBIS B26 13} SET NOT EVEN TRACK INDICAT ED 002F56 CA25 18CA 1394 MVWZ TURESUL4+2,R2 CLEAR RESULTS WORD 
gape 1288 1249 77° don de sergdhesripagnl ich Bu3seh bagt 18 Gee BI ures ty spore greeeoees 
OO2ESE E F 
OO2DCA 4AU4F 1281 TBTS R410} SET SEEK 1 AND 2 NOT RESET OO2E62 2EAA 1397 Dc b(eTa ey) ERROR 
0OO2DCC 490A 1282 1708 TBT R1,10 TEST ON TRACK 002864 CAI 1398 TBTR “_E 
002DCE 1201 1283 JON 70 OO2E66 1036 1399 JOFF T754 
002DD0 4A4F 1284 TBTS feet) SET NOT ON TRACK 002E68 4CA9 1400 TBTR ga CSA) TST FOR CYCLE STEAL STATS 
002DD2 6E03 3342 1285 £709 BAL ENSO,&6 GET SENSE WORD ZERO OO2E6A 6800 3604 1401 BOFF ERDS OK-NO EPROR 
OO2DD6 3604 1286 DC A (SERRS) ERROR | OO2E6E 8828 2C26 32F0 1402 MVW CSBUE+2 STATS ADDRESS OF CYCLE STEAL STATS 
O002DD8 4124 3366 1287 MVA RDATAO,R1 ADDRESS OF SENSE DATA | 002E74 4524 32F0 1403 MVA STATS, R5 
eee rE toe aes Aue) TEST RECALIPRATE TRIGGER 002E78 4UD87 1404 TBIR (ord UNSAFE? 
7 1001 1 JOFF Ss 
OO2DEO 4A4C 1290 Sea: TBS (R2,12) SET "RECALIBRATE NOT RESET! OOsETe 4 AUC 1406 a TBIS 85-19} SET" UNSAFE, 
OO2ZE7E D8A T75SS TBT LURE? 
OO2DE2 6802 3654 1292+T70A B SCONX RETURN TO MDI CONTROLLER 002E80 1001 1408 JOFF 75¢T NO 
109 9 EGE Ea EGC ER EIGE AGS a ISSIOGSEIG CIOS A GGE SCR ORIG RAGE AGRI IRC Hk 002582 4AUB 1409 TBTS R2,11) SET- BRAKE FAILURE 
1294 * OO2E84 4D86 1410 T75TT TBTR {rs 6) PLO OUT OF SYNC CHECK? 
1233 * Rieg: cRtals piageue 002E86 1001 1411 JOFF 7360, NO, erty oe 
129.8 RI IIR RE AERA ARERR IR EEE TA EAA TIA TA ERA AA AIA AAAS TA HHT rs yao Le c7808 aeae #549). ae Caner 
1299 *T7872 OO2E8C 121F 1414 JON. 75 SET- FLAGS AND EXIT 
1300 * THIS TU INHIBITS INTERRUPT 12/01/16 OO2E8E 4D8B 1415 TBTR (R5,11 RESET UNSAFE BITS 
1301 * CALLING ROUTINE LOOPS ON T72A 002890 4psc 1416 TBTR R5,12 x 
1302 HERE CCE HBO CEE CEE CCS OCOD CERES ACCES CEEE EOE SEAT 002EF92 4uDBD 1417 TBTR R5,13 Ke 
OO2DE6 6FOD 2C3C 1303 £7872 MVW R7,TUR SAVE RETURN ADDRESS G4 UO2F 32FO 0000 1418 CWI 0.STAT OTHER CS BITS ON? 
OO2DEA 4020 35C0 0020 1304 MVWI x'60208 t ,TODCE PREP TO LEVEL 2 WITH THE 'I' BIT OFF BODLOR. “Ban EDU 1819 = rye VES-TU ERROB 
OO2DFO 4724 35BC 1305 MVA TOBI K,R - OO2E9E 4ady 1420 T75B TBTS (R2,4 RECAL 
B0aDFe 8009 1307 5S BTSB : pOseae: been Bese Geea, nae ayer coher oueesuES, OCC 
+ 
002DF8 6FOD 2C3C 1308 T72A MVW RT. TURTN SAVE RETURN ADDRESS Ose. BAS3 1655 7 wey 7! EXIT 
OO2DFC 6802 3654 1309 T72B B $CONX EXIT OO2EAA 7806 0003 1424 T75YY CWI xX'0003',R3 CHECK FOR COMMAND REJECT 
1310 * OO2EAE 6801 3604 1425 BNE S$ERRS ERROR-TU NG 
ee ade eee Senos O1DEC76 OO2EB2 6£E03 34C8 1426 BAL XTOCS » R6 START CYCLE STEAL STATS 
13.10 RR IC IG GIG IG ok ioaoktcio ik tok 06 P EB 7 6% meee nae ae cee thi ER). ape ERROR? 
1315+* OO2ZEBA 6A00 3604 1429 BON sens YES 
igigeg “S? Ture GREE Hoge 226 0001 43h BR EyggO Tt csnurea NOH, aaay 
1318+%* (17875) RANDOM SEEK TEST 12/01/76 002EC6 4AUE 1432 TBTS (R2 14) SET NOT A READY 
1319+* 002EC8 6802 2E9E 1433 B 7158 EXIT 
135498 roe Goocce ened 1434 aie TBTe (R53 °5} SET Eek FAILURE 
1322+ FUNCTION: THIS TEST DETERMINES WHETHER SEEK ERRORS ARE OCCURRING OO2ECE 4A4 1432 7750 ere" 
1323+* «RANDOMLY ALL OVER THE DISK SURFACE OR ARE ONLY IN CERTAIN AREAS. 002EDO 6802 3654 143747750 B SCONX RETURN TO MDI CONTROLLER 
1324+% o V3 BR HH HH HMM eH He He He he He eK He HK ee ae he ee He he a ae ae Re eo He i oe 2 2c ce a 2c 2 he coh ake he ic oe ee ie i oi oe hook 2k oe oe ok 
1325+% PROGRAM INITIALIZES ATTACHMENT. 1439 * 
1326+% : RECALIBRATE AND ISSUE SEEKS OF FWD 1,FWD 5,FWD 101,BKWD 101, 1440 * 
+ . ° S 
1328+ : THE stituS OF ‘HOME POSITION' TS TESTED AFTER EACH SEEK AND BOSEuR. Seon i4ga Bee OR eSErksy eR eoe ee ee 
1329+* . EACH SEEK IS CHECKED FOR ‘SEEK CHECK' OO2ZEDA 402B 336A 0400 1443 THI xX"OUOO',RDATA HOME POSITION ON? 
1330+* ; A FWD 1 SEEK AND RECAL IS THEN ISSUED AND HOME POSITION TS 003FEO 120F 1444 JON 775K YES 
1331+* ‘ AGAIN TESTED TO ESTABLISH THE RECAL OPERATIONAL STATUS. O02FE2 4020 31F2 0005 1445 MVWI xX'0005!.SKDCB SFEK 
1332+* : OO2FE8 4020 31F4 0131 1446 MVWI 305,SKDCBt+2 REVERSE DIRECTION 305 TRACKS 
1333+* OO2ZEEE 402C 31F4 0800 1447 OWL X' 0800", SKDCB#2 SET REVEPSE DIRECTION 
aes CALLING SEQUENCE OOZEFY peor ae ere EN be zueN ON NO INTERRUPT EXPECTED 
13364+* PROGRAM PASSES STATUS OF ALL LINFS IN FOLLOWING FORMAT: BOpcUM, ‘aeen Te 1450 DC a (SEERS) ERROR 
1337+* é TURESUL B11 “O2=-=s==—= SEEK FAILURE HAS OCCURRED OO2ZEFC 6E03 3064 1451 BAL HON, R6 GO TO HOME ON ROUTINE 
tees : a Nie Ba ea ee hs Bure Eee ecu e cae 002FOO 4020 31F4 0001 1452 T75K MVWI 1,SKDCB+2 SFT FORWARD SEEK 1 TRACK 
1339+* : DURE SUL Bil 2 aS =Sesos A HANG-UP CONDITION EAS OCCURRED OO2FO06 4C67 1453 TBTS gaa NT) TURN ON NO INTERRUPT EXPECTED 
1340+% . TURESUL- Bil g2s2=>sS=-= INTERRUPT 002F08 6E03 33EE 1454 BAL SEEK, 86 SEEK 
1341+* OO2FOC 3604 1455 Dc A (SERRS) ERROR 
1342+* ‘. TURESUL BIT 8====----== RECAI, OO2FOE 6F03 2FF6 1456 BAL HOFF, R6 GO TO HOME OFF ROUTINE 
1343+* : TUR ESUL BIT. S--sSS-—4= SEEK 002F12 4020 31F4 0005 1457 MVWI 5,SKDCB+2 SET FORWARD SEEK 5 TRACKS 
1344+* : TURESUL BLT 6-=-s=>s=s— NOT USED 002F18 4C67 1458 TBTS (eh NI TURN ON NO INTERRUPT EXPECTED 
ee ee ee ee Leads ee nee BAL fSEEES) SEER 
. FIE R 
134 7+% ¢ TURESUL BIT 6>-"ses<=-= NOT USED 002F20 6E03 2FF6 1461 BAL HOFF GO TO HOME OFF ROUTINE 
1348+* : TURESUL Sib 9-ssa = 2 === NOT USED 002F24 4020 31F4 0065 1462 MVWI 101, gpe epe2 SET FORWARD SEEK 101 TRACKS 
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I7861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 07 17861 -==- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBN [OPP 1976 
OO2F2A 4C67 1463 TBTS TURN ON NO INTERRUPT EXPEC 00308A 4524 32F0 1577 MVA STATS,R5 * 
002F2C 6E03 33EE 1464 BAL Stee The SEEK ae Q0308E 4D87 1578 TBIR ioe 7y UNSAFE? 
002F30 3604 1465 DC A (SERRS) ERROR 003090 1001 1579 JOFF 17548 NO 
002F32 6803 2FF6 1466 BAL HOF GO TO HOME OFF ROUTINE 003092 4a4c 1580 TBTS BS? 19} SET- UNSAFE 
002F36 4020 31F4 0865 1467 MVWI HORS" SKDCBS2 SET REVERSE SEEK 101 TRACKS 003094 4D8A 1581 T75HH TBIR (R5,10 BRAKE FAILURE? 
OO2F3C 4C67 1468 TBTS TURN ON NO INTERRUPT EXPECTED 003096 1001 1582 JOFF 1753g NO 
QO2F3EF 6E03 33EE 1469 BAL (24 git SEFK 003098 4A4B 1583 TBTS R2,11) SET- BRAKE FAILURE 
OO2F4U2 3604 1470 DC h(SERAS) ERROR 00309A 4D86 1584 T75JJ TBTR (R5,6) PLO OUT OF SYNC CHECK? 
OO2F4U4 6503 2FF6 1471 BAL HOFF,R6 GO TO HOME OFF ROUTINE 00309C 1001 1585 JOFF T75KK NO 
0OO2F48 4020 31F4 0805 1472 MVWI X10865" ,SKDCB+2 SET REVERSE SEEK 5 TRACKS 00309E GAYA 1586 TBITS (R2,10) SET- PLO OUT OF SYNC 
OO2F4E 4C67 1473 TBTS (24 oN TURN ON NO INTERRUPT EXPECTED 0030A0 4D89 1587 T75KK TBTR (R5,9) SEEK CHECK? 
002F50 6803 33EE 1474 BAL ee SEEK 0030A2 6A00 2ECC 1588 BON 15¢ SET— FLAGS AND EXIT 
OO2F54 3604 1475 Dc RISERRS) ERROR 0030A6 4D8B 1589 TBTR (R5,11 RESET UNSAFE BITS 
002F56 6E03 2FF6 1476 BAL HOFF,R6 GO TO HOME. OFF ROUTINE 0030A8 4D8C 1590 TBTR (R5,12 * 
OO2F5A 4020 31F4 0801 1477 Var x'0861',SKDCB+2 SET REVERSE SEEK 1 TRACK OO3Z30AA 4D8D 1591 TBTR (R5,13 * 
002F60 4C67 1478 TBTS (R4 NT} TURN ON NO INTERRUPT EXPECTED QOO30AC 402F 32F0 0000 1592 cwI =O, SfaT OTHER CS BITS ON? 
002F62 6803 33EE 1479 BAL scebe 6 SEEK 0030B2 6800 2ED0 1593 BE T4950 YES-TU ERROR 
OO2F66 3604 1480 Dc A (SERRS) ERPOR 0030B6 4aA43 1594 TBTS {R2 3) INTERRUPT 
QO2F68 6503 2FF6 1481 BAL HOFF,R6 GO TO HOME OFF ROUTINE 0030B8 8828 2C26 18CA 1595 NVW SBOF+2,TURESUL+2 
OODFIS uc? et BS See rad eee Bela on be thnecRGe oa $o30c3 E03 3328 1299 T75AB BAL  SERS1,R6 READ SENSE WORD ONE 
TS (RO,NI TURN ON NO 
003F7h 6803 33EE 148% BAL dSEhR. 6 SERRE are ee 0030C6 3604 1598 Dc —-& (SERRS) ERROR 
OO2F78 3604 1485 Dc A (SERR$) ERROR 0030C8 402B 336A 0400 1599 THI X*O400',RDATA HOME POSITION ON? 
OO2F7A 6£03 3064 1486 BAL  HON,R6 GO TO HOME ON ROUTINE QOO30CE 6A00 2EDO 1600 BON T750 EXIT 
OO2F7E 4020 31F4 0001 1487 MVWI x'0601',SKDCB+2 SET FORWARD SEEK 1 TRACK 0030D2 4A4O 1601 IBIS (R2,0) SET SEEK FAILURE 
OO2F84 4C67 1488 TBTS (Ra NI) TURN ON NO INTERRUPT EXPECTED 0030D4 6802 0000 1602 TI5TV <e RETURN 
002F86 6E03 33EE 1489 BAL SEEK, R6 SEEK 1603 * 
OO2F8A 3604 1490 DC A ($EPR$) ERROR 1604 * 
002F8C 6E03 2FF6 1491 BAL HOFF,R6 GO TO HOME OFF ROUTINE 1606 COPY 17837 01DEC76 
002F90 6£03 33F6 1492 BAL $RECL ,R6 RECALIBRATE 1607 T7837 TOIT S14E 
O02F9I4 3604 1493 DC A (SERRS) ERROR 160 84 3 occ dai igi ii ick doi iaiggacioii ioioioicict ktok ok tok 0 6 PEB 76 ** 
002F96 4CA1 1494 TBTR a ER) 1609+%* 
002F98 1023 1495 JOFF 754A 1610+#* TEST UNIT 
OO2F9A 4CA9 1496 TBTR cea CSA) CS STATS AVAILABLE? 1611+* 
002F9C 6800 3604 1497 BOFF $ERP$ OK-NO ERROR 1612+* (9U14) TRAVERSE ACCESS HEADS SCOPE LOOP 12/01/76 
QOO2FA0 8828 2C26 32F0 1498 MVW CSBUFt+2,STATS ADDRESS OF CS STATS 1613+* 
OO2FA6 4524 32F0 1499 MVA STATS,R5 1614+* FURPOSE 
OO2FAA 4D87 1500 TBIR (RD 7f UNSAFE? 1615+* 
OO2FAC 1001 1501 JOFF T7588 No 1616+%* FUNCTION: SEEK OUT TO CE TRACK AND BACK IN 2-TRACK INCREMENTS 
QO2FAE 4A4C 1502 TBTS (22,12 SET- UNSAFE 1617+* . 
QOO2FBO 4D8A 1503 T75BB TBTR (B85,10 BRAKE FAILURE? 16184+* < PROGRAM INITIALIZES ATTACHMENT. 
OO2FB2 1001 1504 JOFF 1T75¢€c 1619+4+* RECALIBRATE AND SEEK OUT TO CE TRACK AND BACK IN 2-TRACK INC. 
OO2FB4 4A4B 1505 TBTS (R2,11) Or BRAKE FAILURE 1620+% : LOOP UNTIL CE INPUTS ANSWER TO MAP QUESTION. 
OO2FB6 4D86 1506 T75CC TBTR (R5,6) PLO OUT OF SYNC CHECK? 1621+* 
0OO2FB8 1001 1507 JOFF 1755p NO 1622+* CALLING SEQUENCE 
QO2FBA 4AUA 1508 TBTS (R2,10) SET- PLO OUT OF SYNC 1623+%* 
QO2FBC 4D89 1509 T75DD TBTR (R5,9) SEEK CHECK? 1624+ PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
OO2FBE 6A00 2ECC 1510 BON 15% SET- FLAGS AND EXIT 1625+% NO STATUS PASSED BACK TO MDI 
OO2FC2 4D8B 1511 TBTR (R5,11 RESET UNSAFE BITS 1626+* 
OO2FC4 4D8C 1512 TBTR (R5,12 * 1627+% | EXITS NORMAL 
OO2FC6 4D8D 1513 TBTR (P5.13 * 1628+%* MDI TERMINATES LOOP. 
OO2FC8 402F 32F0 0000 1514 CHI 0,Sfat OTHER CS BITS ON? 1629+* 
OO2FCE 6800 2EDO 1515 BE T4a50 YES-TU EPROR 1630+* EXITS ERROR 
| OO2FD2 4aA4y 1516 TBTS (R2,4 RECAL ° 1631+* : NONE 
OO2FD4 4A43 1517 TBTS R2,3 INTERRUPT 1632+* 
002FD6 8828 2C26 18CA 1518 MV SBOF+2,TURESUL+2 1633+* RETURN CONTROL 
OO2FDC 6802 2EDO 1519 B T7500 EXIT 1634+ 
002FEO $203 332E 1520 T75AA BAL SENS 1 ,R6 READ SENSE WORD ONE ieee B TURTN* RETURN TO HDI SUPERVISOR 
R 
OO2FE6 402B 336A 0400 1522 aor 4 ¢6G008 DATA HORE’ BOSTTION ON? 163 TF RRR KR RK RR HK HK RH RH HOR RO I HI RC BR aR i Re 2 a oe he 2 oe i a ee oe i a ae ee oe ai ak 
QO2FEC 6A00 2EDO 1523 BON T7750 EXIT 0030D8 6FOD 2C3C 16384T7837 MVW £R7,TURTN SAVE RETURN ADDRESS 
QO2FFO 4A41 1524 TBTS AR2 1) SET RECAL FAILURE 0030DC 4020 2CO4 7837 1639+ MVWI X'7837',$TUID SAVE TU_ID FOR DISPLAY 
OO2FF2 6802 2EDO 1525 B 75 EXIT 0030E2 4424 2BFE 1640+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4& 
OO2FF6 6E0D 3062 1526 HOFF MVW R6,T75TW+2 SET UP RETURN ADDRESS 0030F6 6E£03 35D0 1641+ BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
OO2FFA 4524 0000 1527 17535 MVWI 0,5 INIT INTERUPT TIME OUT COUNTER OO30EA 314A 1642+ DC A (S148) ERROR ADPS FOP INVALID PREP 
OO2FFE 4CA3 1528 TBTR (e4 IN) INTERRUPT BEEN RECEIVED? 1643+* 
003000 1205 1529 JON 75479 YES 0030EC C020 0232 1644 MVB CPUID,RO DETERHINE TYPE OF PROCESSOR 
003002 7DA1 0001 1530 AWI 1,R5 INCREMENT NO INTERRUPT TIME OUT 0030FO F025 1645 CBI 37, R0 * 
003006 18F9 1531 INZ 17535 0030F2 1804 1646 JNE T14%c JUMP IF NOT 4955 
003008 6802 3604 1532 B FERRS NO INTERRUPT - TU RESULTS NG 0030F4 4020 310A 254C 1647 MVWI X'254C',T14T14+2 LOAD TIME CONSTANT FOR 2 SEC 
00300C 6£8£03 3586 1533 17579 BAL XIOCK CHECK INTERRUPT STATS OO30FA 5003 1648 J TI4T2 
003010 3604 1534 pc 1Peae) 0030FC 4020 310A OCOE 1649 TI4TC MVWI X'OCOE',T14T1+2 (4953) LOAD TIME CONS FOR 2 SEC 
003012 4caA9 1535 TBTR cr 4,CSA CS STATS AVAILABLE? 003102 4724 35BC 1650 TI4T2 MVA IOBLK,RI ETUP IOBL 
003014 1018 1536 JOFF OK-NO ERROR 003106 6008 1651 SVC RESET ISSUE IO RESET 
003016 8828 2C26 32F0 1537 MVW TrOAC STATS ADDRESS OF CS STATS 003108 4024 0000 1652 TI4T1 MVWT xX*0000',R0 TIME OUT 2 SEC 
00301C 4524 32F0 1538 NVA STATS, R5 00310C 6002 1653 1737 SVC IDLE 
003020 4D87 1539 TBTR (R5,7) UNSAFE? 00310E B8FE 1654 JCT 1737,R0 * 
003022 1001 1540 JOFF T75EE NO 003110 6B03 33F6 1655 BAL $RECL,R6 RECALIBRATE 
003024 4A4c 15417 TBTS (R2,12 SET- UNSAFE 003114 314A 1656 pc A (S14E ERROF-EXIT 
003026 4D8A 1542 TISEE TBTIR 5,10 BRAKE FAILURE? 003116 4020 32D4 0000 1657 MVWI 0O,CYLO INIT CYL LOC 
003028 1001 1543 JOFF T75FF 00311C 4020 31F4 0002 1658 TS14C NHVWI 2,SKDCB+2 SETUP SEEK FORWARD 2 TRACKS 
00302A 4aAduB 1544 TBTS (R2,11) SET- BRAKE FAILURE 003122 6E03 33EE 1659 TSI4A BAL $SEEK,R6 SEEK 
00302C 4D86 1545 T75FF TBTR (R5,6) PLO OUT OF SYNC CHECK? 003126 314A 1660 DC A(S14E EPPOR-EXIT 
00302E 1001 1546 JOFF 77566 No 003128 4029 32D4 0001 1661 AWI 1,CYLO INC CYL LOC COUNTER 
003030 4AUA 1547 TBTS (R2,10) SFT— PLO OUT OF SYNC 00312E 402F 32D4 0097 1662 CWI 151,CYLOC CYL 302 REACHED? 
003032 4D89 1548 T75GG TBTR (R5,9) SEEK CHECK? 003134 18F6 1663 INE TS14n NO-LOOP 
003034 =6A00 2ECC 1549 BON 75 SET- FLAGS AND EXIT 003136 4020 31F4 0802 1664 MVWI X'0802',SKDCBt2 SETUP SEEK REV 2 TPACKS 
003038 4D8B 1550 TBTR (R5,11 RESET UNSAFE BITS 00313C 6503 33EE 1665 TS14B BAL SSEEK,R6 SEEK REVERSE 
00303A 4D8C 1551 TBTR (R5/12 xk 003140 314A 1666 DC A (S148) ERPOR-EXIT 
00303C 4D8D 1552 TBTR (¢R5.13 & 003142 402F 32D4 0001 1667 SWI 1,CYLO DECREMENT CYL COUNT 
00303E 402F 32F0 0000 1553 CWI 0,StAT OTHER CS BITS ON? 003148 18F9 1668 JNZ 7$14B KEEP SEEKING REVERSE 
003044 6801 3604 1554 BNE SERPS YES-TU EPPOP 1669 S14E TXIT EXIT 
003048 6802 2EDO 1555 B T750 EXIT 00314A 6802 3654 1670+S14E B SCONX RETURN TO MDI CONTROLLER 
00304C 6E03 332E 1556 TI75AC BAL SENS1,R6 READ SENSF WORD ONE 4 G7 HR HHH HMM He He He He he He ae He ee He He He Fe ee he He ee i Se ee Se 2 ee ae He He i Ie He ee ee a ee a ee ee i a ae He ae ee he 
003050 3604 1557 DC A (SERPS) 1672 * 
003052 402B 336A 0400 1558 TWI X*O400", RDATA HOME POSITION ON? 1673 * 
003058 1003 1559 JOFF T75TW EXIT 1675 COPY 17833 O1DEC76 
00305A 4A40 1560 TBTS (R2,0) SET SEEK FAILURE 1676 T7833 TUIT S31E 
00305C 6802 2EDO 1561 B 756 EXIT V6 TT FRR RRR RK HH RK RH KH HE RH HI HE HH HI A I I IKK EK KO 6 FEB 7 6 ** 
003060 6802 0000 1562 T75TW B *—% RETURN 1678+* 
1563 * 1679+* TEST UNIT 
003064 6EO0D 30D6 deee : 1ee1s% (QU31) SEEK LOOP TEST 12/01/76 
EOD 30D 1 HON MVW R6,T75TV+2 SET UP RETURN ADDRESS 35 / 
003068 4524 0000 1566 17534 MVWI 0,85 INIT INTERUPT TIME OUT 7 OUNTEPR 1682+* 
00306C 4CA3 1567 TBTR (Ra IN) INTERRUPT BEEN RECEIVED? 1683+* PURPOSE 
00306E 1205 1568 JON 7578 YES 1684+* 
003070 7DA1 0001 1569 AWL 1,R5 INCREMENT NO INTERRUPT TIME OUT 1685+* FUNCTION: LOOP ON RECAL AND SEEK TO TRACK 1. 
003074 18F9 1570 JNZ 17534 16 864+* 
003076 6802 3604 1571 B SERRS NO INTERRUPT - TU RESULTS NG 1687+* : PROGRAM INITIALIZES ATTACHMENT. 
00307A 6£E03 3586 1572 17578 BAL XIOCK,R6 CHECK INTERRUPT STATS 1688+* 5 RECALIBRATE AND DO A ONE TRACK SEEK (FORWARD-OUT DIRECTION) 
00307E 3604 1573 pc A (SERRS$ ERROR 1689+* LOOP UNTIL CE INPUTS ANSWER TO MAP QUESTION. 
003080 4CA9 1574 TBTR {Fu CSA CS STATS AVAILABLE? 1690+* 
003082 101F 1575 JOFF T7545 OK-NO ERROR 1691+* CALLING SFQUENCE 
003084 8828 2C26 32F0 1576 MVW CSBUF+2,STATS ADDRESS OF CS STATS 1692+* 
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2153 * 2267+* EXECUTE INPUT AND OUTPUT COHHANDS 

2154 * EXECUTE INPUT & OUTPUT COMMANDS 2268+* 

2155 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2269+* PURPOSE 

2156 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 2270+* 

2157 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 2271+* TO EXECUTE ALL ie COMMANDS FROH A _COHHON PLACE. 

2158 *x SUPVR CALL. 227248 THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 

21 * Z 

2160 : THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: Souele 1. THE I/O -COMRRED: THAT POINTS TO THE INSTRUCTION THAT STARTED 

2162 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 2276+% 2- SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 

2163 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 22774% ISSUED BY THIS SUBROUTINE. 

7164 * 2278+% 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

2165 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2279+% START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 

2166 * 7 22804* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 

2167 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 2281+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 

2168 * ? 2282+% MYSTERY INTERRUPT (NT) CONTROL BIT IS SET. 

32169 * 2 BAL SWKST, RE WRITE SECTOP ID SKEWED (TEST) 2283+%* S. HOVES THE ADDRESS OF THE 1/0 CONTROL BLOCK IN R7 SET THE 

2170 * af 2284+ EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'Sv¢ TAPT! 

3171 * 3 BAL SRWST,RE READ SECTOR ID SKEWED (TEST) 2285+ 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 1/0 COMMAND. TIMING 

9172 * . 2286+* STARTS TO DETERMINE A LOST INTERRUPT. 

2173 * Y BAL SRIDS,R6 READ SECTOR ID (TEST) 2287+ 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 

2174 * ‘ 2288+ WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 

2175 * 5 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 2289+4+%* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 

2176 * Z 2290+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 

2177 * 6 BAL $SWSEC,R6 WRITE SECTOR ID 22914+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 

2178 * a 2292+ 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 

2179 * 7 BAL SWSTS ,P6 WRITE SECTOR ID (TEST 22934+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 

2180 * : 22944 ISSUED BY THIS SUBROUTINE. 

3181 * 8 BAL SDIAG ,F6 DIAGNOSTIC 22954 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 

3182 * . 2296+ CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 

ae 2 9 BAL XIOCS,R6 CYCLE STEAL STATUS te COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 

2185 : 10 BAL SSEEK,R6 SEEK eet CALLING SEQUENCE 

2187 11 BAL SRECL,R6 RECALIBRATE Set eee THIS ROUTINE HAS THE FOLLOWING ENTRIES: 

2189 * 12 BAL SRDID,R6 READ SECTOR ID 2303+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 

3190 * = 23044+* --> BAL XIo1 MOD PARM PRELOADED IN 'IOMOD! 

9191 * 13 BAL $RD,RG READ 2305+* --—> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 

3192 * . 23064+* --> BAL XTOCS—4 7R6 AUTO CS STATUS (FOLLOWING OTHER XIO 

2133 14 BAL SRDVY,R6 READ VERIFY PE hae P AND DOES NOT POST INTERRUPT STATUS) 

2195 * 15 BAL SWRT,R6 WRITE 2309+* RETURN CONTROL 

3196 * 23104* 

5197 * 23114+* BXS R6,2) RETURN TO USER NO ERROR 
0033EE 4020 35c0 31F2 2198 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2312+* OR B R6 { * RETURN AND RETRY ON ERROR 
O0O33F4 5064 2199 Jj XYIO 2313 RRR EE IR IIR Fok kokok i ioiok i ike kak ake ak ak ake ak ake ake ak ai a ake ake fe ak ake kc kc aca a ate ac ate akc ake akc ak 

9200 * OO34BE CB25 35c2 2315+ XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
0033F6 4020 35c0 31B2 2201 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 0034C2 SOOA 2316+ J XIO1 CS I/O'S ARE NOT RETRIED 
0033FC 5060 2202 J XIO 2317+* 

3203 * 0034C4 4CAA 2318+ TBTR (Rice ,CE RESET CS STATUS INTER ERROR INDICAT. 
0033FE 4020 31D2 2204 $RDID MVA PSDCB, TODCB SET UP BLOCK FOR SVC CALL 0034C6 4C68 23194 TBTS RY SET 'CYCLE STEAL STATUS! IN PFPOGRESS 
003404 OBFF 2205 MVB X'FFt 7 SET BUFFER TO FS 0034C8 4020 35C0 3202 2320+XIOCS MVA CSDee, ODCB SET UP CONTROL BLOCK FOR SVC CALL 
003406 4524 2206 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS OO034CE 4020 35C2 OOOF 2321+ MVWI X*O00F, TOMOD SET CYCLE STEAL MODIFIER 
OO34O0A 4724 2207 MVW 6,R7 SETUP BUFFER LENGTH OO34D4 4C28 2322+ TB (RU,cS IS CS IN PROGRESS EEECE Sone 
00340E 2BAC 2208 PFN R3 {R5) INIT READ SECTOR ID BUFFER 0034D6 1213 2323+ JON To * YES, BYPASS SAVING DRS 
003410 4020 2c0c 2209 MVA  SCTID,RSDCB+14 DATA ADDR 0034D8 6EOD 2COA 2324+XI01 MVW  R6,LSTIO SAVE TAR FOR RETRY TF EQUESTED 
003416 5053 3210 J XIO 0034DC 4324 2c14 2325+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 

3211 * 0034EO 6D08 35C0 2326+ MVW IODCB, R5 * AND THE FROM ADRS, ALONG WITH 
003418 OBFF 2212 $RD MVBI X'FF*,R3 SETRD BUFFER TO ALL FS OO34E4 OF10 2327+ MVBI R7 * THE NUMBER OF MOVES 
00341A €D08 2213 VW RDDCB+14.R5 SET UP READ BUFFER ADRS OO34E6 2D64 2328+ MVFN SR) 483) MOVE 1 STATUS WORD AND ADJUST 
O0O341B 4724 2214 MVWI X10100", £7 SET UP BUFFER LENGTH 0034E8 OBFF 2329+ MVBI h CLEAR CYCLE STATUS BUFFER 
003422 2BAC 2215 FFN (5) | CLEAR READ BUFFER OO34EA 4524 2C24 2330+ MVA CSBUF,R5 * TO ALL ONES * 

003424 4020 3232 2216 $RDS MVA EDBCB, ODCB SET UP BLOCK FOR SVC CALL OO034EE OF10 2331+ MVBI 16,R7 
00342A 5049 2217 J XI 0034FO 2BAC 2332+ FFN R3 {B53} x 

3218 * 0034F2 4020 2C06 0708 2333+ MVWI x'6708 ,SLOIN OVERLAY OLD CONDITION CODES 
00342C 4020 3222 2219 $S$RDVY MVA VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO34F8 CB25 2C08 2334+ MVWZ SISB,R3 ZERO OUT OLD ISB VALUE 
003432 5045 2220 J XIO 2335+ 

3931 * OO34FC 4CAI1 2336+ TBTR R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 
003434 4020 3212 2222 S$WRL MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL OO34FE 4CA3 2337+XIO2 MTBTR R4,IN CLEAR INTERPUPT RECEIVED CNTL BIT 
00343A 5041 2223 J XIO 003500 4724 35BC 2338+ MVA OBLK,R7 SET UP CONTROL BLOCK FOR SUPVR 

2224 * 003504 4CA6 2339+ TBTR R4,$LE) RESET LEVEL ERROR INDICATOR 
00343Cc 4020 3252 2225 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 003506 4C62 2340+ TBIS R4,XT) SET EXPECTED INTR CONTROL BIT 
003442 OBFF 2226 MVBI X'FF!R3 SET BUFFER TO FIS 003508 600A 2341+ Svc TART CALL SUPVR FOP I/O COMMAND 
003444 4524 2227 MVA SCTID,RS SETUP READ SECTOR ID BUFFER ADRS 2342+ 
003448 4724 2228 MVWI 6,87 SETUP BUFFER LENGTH Q00350A 4CAT 2343+ TBTR as oy IS AN INTR EXPECTED 
00344C 2BAC 2229 FFN R3 (RS) INIT READ SECTOR ID BUFFER 00350C 6AC0O 0002 2344+ N * NO, RETURN TO USER 
OO344E 4020 3260 2C0C 2230 MVA SCTID, RKDCB4+14 DATA ADDR 23454+* 

003454 5034 2231 . J XIO Z3uGrs THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
003456 4020 35c0 3242 2233 SWKST MVA WKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 003510 0DO00 2348+ MVBI "00! SET UP WORK REG FOR "LOST INTR! 
00345c 4020 3250 3290 2234 MVA WSIDT ,WKDCB+14 DATA ADDR 003512 4cA3 2349+XIO8 MTBTR (Raat rh}? HAS INTERRUPT BEEN RECEIVED 

003462 502D 9235 J XTO 003514 1238 2350+ JON * YES, CHECK IF ALL WAS SATISFACTORY 

3236 * 003516 6002 2351+ SVC rDLE. ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
003464 4020 35Cc0 3252 2237 $RWST MVA RKDCB,1ODCB SET UP CONTROL BLOCK FOR SVC CALL 2352+ SUPVR WILL RETURN HERE 
O0O0346A 4020 3260 3296 2238 MVA SCTST, “RKDCBt14 DATA ADDR 003518 7DA1 0001 2353+ AWI 1,85 ADVANCE TIME OUT COUNT 
003470 5026 3239 J XIO 00351C 18FA 2354+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 

5040 * 00351E 4C61 2355+ TBTS (Rb eg ER) SET ON ERROR CONTROL BIT 
003472 4020 31D2 2241 $RIDS MVA RSDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 003520 68D2 0000 2356+ B ERR "NO INTERRUPT! 

003478 OBFF 2242 MVBI X'FFt, SET BUFFER TO FtS 2396" sic eg benadw dill  wiaeeeeaeeenseeee en et esd MERCK RK KK kK KK KK KKO IER BIG K* 
OO347A 4524 3296 2243 MVA SCTST, RS SETUP READ SECTOR ID BUFFER ADRS 2359+* 

00347R 4&724 0006 2244 MVWI 6,R7 SETUP BUFFER LENGTH 2360+* SUBROUTINE 

003482 2BAC 2245 FFN R3 85), INIT READ SECTOR ID BUFFER 2361+* 

003484 4020 31E0 3296 2246 MVA schst) RSDCB+14 DATA ADDR 2362+* I/O EXECUTE FRROR HANDLING ROUTINE 

00348A 5019 2247 J XIO 2363+* 

2248 * 2364+* PURPOSE 
00348C 4020 35C0 3242 2249 $S$WKEW MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2365+* 

003492 4020 3250 3288 2250 MVA WPRSID,WKDCB+14 DATA ADDR 2366+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
003498 5012 3251 J XIO 2367+ PROBLEM THAT WAS FOUND WHEN E I/O COMMAND WAS ISSUED BY THE 

2252 * 2368+* SUPERVISOR AND IT WAS NOT ACCEPTED. 

00349A 4020 35C0 31cC2 2253 SWSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2369+* 
oo arne aca 31D0 3288 oeRe HVA HRSTD, ,WSDCB+14 DATA ADDR g3 3 CALLING SEQUENCE 

O 
0O034A8 4020 35c0 31C2 2256 $WSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2372+* SUPVR WILL ENTEP WHEN AN ERROP OCCURS ON AN I/O COMMAND 
OO34AE 4020 31D0 3290 2257 MVA WSIDT, *WSDCB+14 DATA ADDR 2373+* 
0034B4 5004 2298 P J XIO ened RETURN CONTROL 

+ 

OO34B6 4020 35cC0 31A2 2260 SDIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2376+4+* B (R6) * RETURN TO USERS ERROR HANDLER 
0034BC 5000 2261 J XIO 2377+* 

2262 XEQIT D3 TBA RH HHH HH HK HR RI IK I RC I II FR RR IRC IRR RRC aK 2c ic aR a ake a af a af 2c ae aie ae ah ae ae aK a oe aie aca ac ac 

2263+ I RIOR IO II IIR I ICO RR aa a rt ok AKIO JUL 76 ** 2379+* 

22644+% 23804+* CC O= DEVICE NOT ATTACHED 

2265+* SUB-ROUTINE 2381+* FOR 1= DEVICE BUSY 

2266+* 2382+* I/0 2= DEVICE BUSY AFTER RESET 
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SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 11 
STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2383+% 3= COMMAND REJECT 
23 8u+% Y= INTERVENTION RECUIRED 
2385+% S= INTERFACE DATA CHECK 
23864% 6= CONTROLLER BUSY 
2387+% 7= 1/0 COMMAND EXCEPTED 

+ 
23894XIOER DC X'706E! COPY STATUS ANY LEVEL INTO R3 
2390+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
2391+ “VB  R3,$I0IN * PUT IN LOG OUT AREA 
2392+ B (RE) # RETURN TO USER ERROR HANDLER 
DZD we A eR RK RASTUAERSA RESET EAST STSCI SES STINT AT eee ee Rees 
23954% 
2396+% SUB-ROUTINE TL 
+ 
2398+% ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* IL 
2 +% 
2400+ PURPOSE IL 
2U02+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR’ IL 
2403+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
24U04e% EXPECTED CODE. IL 
2405+* IL 
2406+% CALLING SEQUENCE TL 
+ 
240B+% SUPVR WILL ENTER WHEN AN ERROR OCCURS OW AN I/O INTERRUPT Tt 
24094 
gu 104% RETURN CONTROL TL 
+ 
2U124% SVC —- EXIT RETURN TO USER VIA SUPVR IL 
+% 
SU he wae ae EE REA RAEI EAT 
24154+% 
3416+* CC 0= CONTROLLER END ISB = ADD STATUS IL 
2417+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
5418+ INTR 2= EXCEPTION INTERRUPT FOR = INCOR LENGTH IL 
2U194% 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 
24u20+% G= ATTENTION INTERRUPT = STG DATA CK IL 
2421+% 5= ATTENTION / PROGRAM CNTL INTR = INV STG ADRS IL 
2422+% 6= ATTENTION 7 EXCEPTION INTR = PROTRCT CK TT 
242344 J7= ATTENTION 7 DEVICE END INTR = I-FACE DATA IL 
2424+ 
2425+INTER DC X'706E? COPY STATUS ANY LEVEL INTO R3 TL 
24264 SRL  13,R3 POSITION INDICATORS IN R3 TT 
2427+ MVA  OPTN7,R4 SET UP BASE ADRS IL 
2428+ TBT (Ra c$) IS CS IN PROGRESS TL 
2429+ JOFF iINTES * NO IL 
2430+ TBTS (PU CE) TURN ON CYCLE STEAL INTER ERROR IL 
2431+ HVW  27,CSTL8 SAVE CS EPR ISB VALUE, BITS 0-7 IL 
2432+ MVE  R3,CSTL8+1 * AND THE COND CODE IL 
2433+ J INTER IL 
2434+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND TL 
2435+ JOFF iINTET BCH IF NOT EXPECTED IL 
2436+ CBI 4,R3 TS THIS AN "ATTENTION! INTR TL 
2437+ JE TATRI * YES, BCH TO END INTR SEQUENCE IL 
24U384+INTET TBTS (Ra ER) SET ERROR ON I/0 COMMAND CNTL BIT TL 
9+ J NTR 
giioae THE ERROR INTERRUPT USES THE SAME IL 
24414+% ENDING SEQUENCE AS THE NORMAL INTR IL 
DUNS eREL TET ESES STONE OER PEALT ALES ORESER ESTAS pee ee eee ers Ne vee eae 
2HU44* 
24u5 + SOUBROUTINE IL 
+ 
247+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'S$INTL'* TL 
244 84% 
24U94+* PURPOSE IL 
24504+% TL 
g4o1+s TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 
2452+% 
2453+% CALLING SEQUENCE TL 
+ 
24U55+% SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
24564% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
2U574+% AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
245 84% COMMON SECTION IS HANDLED HERE. IL 
+ 
24604* RETURN CONTROL TL 
24614+% IL 
2462+% SVC EXIT RETUPN TO USER VIA SUPVR TL 
+% 
FOR SSE ESE HE SEES IE EOE IE IOS SOS OGCCGGRI A IGGOR I iar tok ack TT 
DU654+INTOK DC X'706E! COPY STATUS ANY LEVEL INTO B3 IL 
24664 SRL  13,R3 POSITION INDICATORS IN R3 IL 
2467+ MVA  OPTN1,R4 SET UP BASE ADRS TL 
24U68+INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED IL 
24694 TBY RU’CS TS 'CS IN PROGRESS! ON TL 
2470+ JON NTR? * YES, BCH AROUND UPDATE TL 
2U71+ NVB  R3,SIOIN1 SAVE {INTERRUPTING CC CODE IL 
2472+ NVW  R7,$ISB SAVE INTR STATUS AND DEV ADRS IL 
2U73+4INTR2 EQU * Th 
2u744% CBCL R5 CURRENT LEVEL COPIED BY DCP It 
2475+ SLL  4,R5 POSITION INTR LEVEL AND PUT TL 
2476+ ABI 1,85 * IN 'I' BIT IL 
2U77+ CH SENTL, RS IS THIS THE COFRECT INTR LEVEL IL 
2478+ JE INTR3 * YES, GO EXIT THIS LEVEL TL 
2U79+ TBTS (RU,SLE) SET INTR LEVEL ERPOR CONTROL BIT IL 
2480+ TBTS (RULER SET ERROR ON I/O COMMAND CNTL BIT IL 
24814INTR3 TBTR (RY_XI WAS INTERRUPT EXPECTED TL 
2482+ JON NTRY * YES, EXIT OFF THIS INTR LEVEL IL 
2483+ TBTS (RU,MT) * NO. SET MYSTERY INTR CONTROL BIT IL 
2484+ CBI. 4,R3 ATTENTION INTERRUPT? IL 
2485+ JE TATE X YES IL 
2486+ TBTS (R4,NG) ERROR, UNEXPECTED INTERRUPT TT 
2UB87+INTRX SVC I EXIT THIS LEVEL VIA SUPVR TO PGN IL 
DU BO a HR A RR BOR ROR RRR I RR i a RR ao eae oe a aa a ak ok ae ek tek ek QO SF EBT 6 ** 
2490+* 
24914+% THIS IS THE CONTINUATION OF EXECUTE 1/0 AFTER THE INTERRUPT 
2U92+% HAS BEEN SERVICED. THE EXEPCISER FINDS AN INTERRUPT HAS BEEN 
2U934+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
2U9K4+% 
2495+ 
24964+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
24974 BN R612 * YES, EXIT THIS ROUTINE 
2498+ TBTR (R4,CS5) was aAfivo CS IN PROGRESS 
24994 JOFF xXtocv * NO, CONTINUE CHECKING 
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SEEK FAILURE HAP P/N=1635284 EC=755285 PAGE 11A 
STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 

TBT (RY, CE) TS CS IN AN ERR CONDITION 
JOFF xi0€o * NO, BCH 
B R6) * cs ERROP 

XIOCO TBTS (P4,CSA) TURN ON CS STATS AVAIL FLAG 
BXS : GO TO USER 

XTOCV TBT R4s ER) WAS ERROR INTR CONTROL BIT OW 

: JOFF xXtocxX * NO, EXIT THIS POUTINE 
HVB  $IOIN+1,R5 GET LAST INTR CC CODE 
CBI 2,R5 IS THIS CC=2 
BNE (26) * * NO, BCH TO ERROR HANDLER 

XIOCQ HVB ISB,R5 cet faST ISB DATA BYTE AND IF CS 
BN xToc§-4 * AVAILABLE, GO AND GET IT 
B (R6) * ERROR 

XIOCX NVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 

: BXS  (R6,2$ RETURN TO USER VIA PEG 6 

+ I/O PARAMETER LIST 

TOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
DC A (XIOER) ERROR ROUTINE ADRS 

IODCB DC Ae DCB ADRS OR LEVEL & INTR 

IOMOD DC A (#-% MODIFIER 
DC A (—% ADRS OF LAST SVC CALL 

IORSP DC h (#-% SECOND WORD OF LAST IDCB 

: INTERRUPT CONTROL BLOCK FOR 1/0 COMMANDS 

INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
DC A (INTOK INTERRUPT OK RETUPN ADRS 

A (INTER INTERRUPT ERROR ADRS 
NTCC DC X'0003! INTERRUPT CODE EXPECTED 
He oe He he Be he Be HK ae a 3 he shee Be a ae he he ee He He He He he he He he ah oh he he he he he he he ah He he he he 2 ae ee he ak ee Ke eke Ke KK TIM AY 76 * 
SUBROUTINE 
CONNECT INTERRUPT CONTROL BLOCK & PREPARF DEVICE 
PURPOSE 

TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 


TO INTERRUPT. 
CALLING SEQUENCE 
THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 


--> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
~-> BAL SCONP,R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
RETURN CONTROL 

BXS (Re 2) RETURN TO USER VIA REG 6 IF OKAY 
OR B R6{ ¥ IF THE DEVICE COULD NOT BE CONNECTED 


HH He eH He He Fb He de HG te Ob dh Oe HG ab He Sb He HHH 


HK 2 tHe Be He ee SH ae ae ae Be 2 ee He Hee 2 ee oe ae ee he he fe hi ee ee he he ae Oe 2 ee Se ec he He ee he ik he He ie he He He ke ee He He he He OK 
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PPE EE DEERE EEE EEE EEE EEE REPRE EERE EEE EEE EEE EEE EERE EEE EEE EE EERE EEE EERE EEE EEE EEE EER REE EE EE EEE PEE EEEE EEE EEE PES 
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$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
HVBI 0/R3 * AND THE DATA TO USE 
MVA  DEV1,R5 * ALONG WITH THE ADRS TO USE 
FFN  R3 (85) * 
MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
MVA  INTRL,R7 SET R7 TO CONTROL BLOCK AND 
SVC CICB * CONNECT IT TO THIS DEVICE 
BN (R6) * ERROR PETUPN TO USER 
$CONP MVW $INTL,IODCB PuT IN LEVEL & INTR PARAMETER 
MVA  TIOBLK.R7 SET R7 TO CONTROL BLOCK TO PREPARE 
MVWI xX'0708',SIOIN INITIALIZE CONDITION CODE STORAGE 
MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
NV 4 ©R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
SVC PRED * AND CALL ON SUPVR 
BXS (R6 ; 2) RETURN TO USER 
FG a olok i a li a gO IG a a i oi ioiaiaiadoioikak acd etcteate ak date tk 6 A PR 7 6 
* SUBROUTINE 
* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
* PURPOSE 
x DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
x SET THE 'NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS ! 
* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
* CALLING SEQUENCE 
THIS SUBROUTINE HAS THF FOLLOWING ENTRIES: 
* 225° p SERRSF SET 'NG' BIT AND CONVERT DATA TO LOG 
een: SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
* RETURN CONTROL 
* B TURTN* RETURN TO MDI 
* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
He Me He He He He oe ea he Be he Se ah he x ae ae he he he ae he a He ae he ae oe Hk he ac aie ae 2 afc He i he i fe ake ic ie he She oe ie ai he he he oc ae he ae eae he ote he aie kc ae fc he fe ae he Ke 
$ERRS MVWI X'8000',TUSTATUS SET ON 'NO GOOD! STATUS BIT 
MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
SVC HTOE CONVERT HEX TO EBC VIS DCP 
$PRNT MVBI 3,R5 
MVA TOWORK,R3 SET UP BUFFER STORAGE 
MVW R3,BUFPT 
MVA  LINE1,R1 
MVBI 4&,R7 
MVBI 8 /R6 
MVBUF MVFN 3) (RD 
MVBI 4) R 
MVBI xuo' R2 
MVB. = -R2 (Ripe 
oct mvVBuF,R6 
MVBI 8,R6 
AWI 44,R1 
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17861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 13 17861 --- SEEK FAILURE MAP P/N=1635284 EC=755285 PAGE 13A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 ' CROSS-REFERENCE LISTING COPYRIGHT IBM ZORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
2564 2433 2437 2439 
1758 CLDCB > ADDRESS. HEX LOCATION(000031B2) IN CSECT(I7861 ) LENGTH(2) 2473 INTR2 ahDDRESS. HEX LOCATION(0000356A) IN CSECT(I7861 ) LENGTH (1) 
2035 CPUID ABSOLUZES HEX_ VALUE (00000232) 2481 INTR3 a ADDRESS. HEX LOCATION (00003578) IN CSECT(I7861 ) LENGTH (2) 
890 cs ABSOLUTE. HEX VALUE (00000028) 2519 IOBLK ADDRESS. HEX LOCATION (000035BC IN CSECT (17861 ) LENGTH (2) 
2319 2322 2428 2469 2498 1113. 1235 1305 1388 1650 1719 2338 2568 
891 CSA ABSOLUTE. HEX VALUE (00000029) 2521 IODCB ADDRESS. HEX LOCATTON (000035C0 IN CSECT(I7861 LENGTH (2) 
1125 1400 1496 1535 1574 2503 1304 2198 2201 22 2216 22 19 2222 2225 2233 
921 CS BUF ADDRESS, HEX LOCATION (00002C24) IN CSECT (17861 \ LENGTH (1) 2237 2241 2249 2253 2256 60 2320 2326 2567 
1127 1148 1156 1247 1262 1402 1422 1430 1498 2522 TOMOD ADDRESS. HEX LOCATION (000035095 IN CSECT(I7861  ) LENGTH(2) 
1518 1537 1576 1595 1815 2330 , 2315 2321 
1808 CSDCB a ADDRESS. HEX LOCATION(00003202) IN CSECT(I7861 ) LENGTH (2) 40 17861 CSECT. START (00002500) LENGTH (4724) ESDID(0) 
929 CSTL8 oADDRESS. HEX LOCATION (00002C32) IN CSECT(I7861  ) LENGTH (2) 1887 LGSEC ADDRESS, HEX LOCATION (00003280) IN CSECT(I7861  ) LENGTH(2) 
1929 CYLOC ADDRESS, HEX LOCATION (000032D4) IN CSECT(I7861  ) LENGTH(2) 2635 LINE1 a ADDRESS. HEX LOCATION (00003696) IN CSECT(I7861 ) LENGTH(40) 
911 DCBUF ADDRESS. HEX LOCATION (00002C14) IN CSECT(I7861 ) LENGTH(1) 905 LSTIO ADDRESS. HEX LOCATION (OQOO2COA) IN CSECT(I7861  ) LENGTH (2) 
2325 1988 1994 2000 07. 2013 24 2571 
2646 DC2PT oRDDRESS. HEX LOCATION(00003768) IN CSECT(I7861 ) LENGTH(2) 882 MI > ABSOLUTE. HEX VALUE (00000020) 
108 DEVADD ADDRESS. HEX LOCATION (000019D0) ,Z IN CSECT(I7861 |) LENGTH (1) 2609 MVBUF ADDRESS. HEX LOCATION (00003622) IN CSECT(I7861 ) LENGTH(2) 
936 1112 1227 12 38 89 1995 2001 2008 2613 2616 
2074 2519 2528 2625 894 NG ABSOLUTE. HEX VALUE (0000002C) 
906 DEV1 ADDRESS. HEX LOCATION(00002COC) IN CSECT(I7861 ) LENGTH (2) 2486 
910 2560 889 NI ABSOLUTE. HEX VALUE 90000027) 
1746 DGDCB > ADDRESS. HEX LOCATION (000031A2) IN CSECT(I7861 ) LENGTH (2) 144s 1453 1458 14 1468 1473 1478 1483 1488 
70 DUMMY ABSOLUTE. HEX VALUE (00000000) 468 N00001 ADDRESS. HEX LOCATION(000025C0) IN CSECT(I7861 ) LENGTH (2) 
459 557 615 627 4642 695 707 318 706 
696 ENTPT ADDRESS- HEX LOCATION(0000270C) IN CSECT(I7861 ) LENGTH(1) 471 N00002 ADDRESS. HEX LOCATION(000025C4) IN CSECT(I7861  ) LENGTH (2) 
883 ER ABSOLUTE. HEX VALUE (00000021) 474 N00003 ADDRESS. HEX LOCATION(000025C8) IN CSECT(I7861  ) LENGTH (2) 
1123. 1154 1245 1386 1398 (1428 1494 2336 2355 324 
2438 2480 2505 486 N00004 ADDRESS. HEX LOCATION(000025DA) IN CSECT(I7861 ) LENGTH (2) 
958 EXIT ABSOLUTE. HEX VALUE (00000006) 327 
2487 498 N00005 ADDRESS. HEX LOCATION (000025EC) IN CSECT(I7861 ) LENGTH(2) 
2648 FPAKETU ADDRESS. HEX LOCATION(0000376C) IN CSECT(I7861  ) LENGTH(2) 330 
2618 507 N00006 ADDRESS. HEX LOCATION(000025FA) IN CSECT(I7861 ) LENGTH(2) 
1890 FIVE9 ADDRESS. HEX LOCATION(00003286) IN CSECT(I7861 ) LENGTH(2) 333 
2119 509 N00007 ADDRESS. HEX LOCATION(000025FC) IN CSECT(I7861  ) LENGTH (2) 
767 F00009 ADDRESS. HEX LOCATION(0000288E) IN CSECT(I7861 ) LENGTH(1) 336 499 
622 512 N00008 ADDRESS. HEX LOCATION(00002600) IN CSECT(I7861 ) LENGTH(2) 
775 F00012 ADDRESS. HEX LOCATION (000028DC) IN CSECT(I7861 ) LENGTH (1) 339 
637 515 N00009 ADDRESS. HEX LOCATION(00002604) IN CSECT(I7861 ) LENGTH (2) 
835 FO0014 ADDRESS. HEX LOCATION(00002B9C) IN CSECT(I7861 ) LENGTH(1) 342 510 
679 694 518 N00010 ADDRESS. HEX LOCATION(00002608) IN CSECT(I7861 ) LENGTH (2) 
737 F00015 ADDRESS. HEX LOCATION (000027B0) IN CSECT(I7861 ) LENGTH (1) 345 487 
567 658 676 530 N00011 ADDRESS. HEX LOCATION(0000261A) IN CSECT(I7861 ) LENGTH (2) 
721 F00061 ADDRESS. HEX LOCATION(0000274A) IN CSECT(I7861 ) LENGTH (1) 348 
513 542 N00012 ADDRESS. HEX LOCATION(0000262C) IN CSECT(I7861 ) LENGTH (2) 
729 F00065 ADDRESS. HEX LOCATION(00002784) IN CSECT(I7861  ) LENGTH(1) 351 
5 16 554 N00013 ADDRESS. HEX LOCATION(0000263E) IN CSECT(I7861  ) LENGTH (2) 
741 F00105 ADDRESS. HEX LOCATION(000027D6) IN CSECT(I7861 ) LENGTH(1) 354 
584 563 NO0014 ADDRESS. HEX LOCATION(0000264C) IN CSECT(I7861 ) LENGTH(2) 
749 F00117 ADDRESS. HEX LOCATION(00002810) IN CSECT(I7861 ) LENGTH (1) 357 
590 566 N00015 ADDRESS. HEX LOCATION (00002650) IN CSECT(I7861  ) LENGTH (2) 
757 F00130 ADDRESS. HEX LOCATION(0000284C) IN CSECT(I7861  ) LENGTH (1) 360 
604 569 N00016 ADDRESS. HEX LOCATION(00002654) IN CSECT(I7861 ) LENGTH (2) 
761 F00133 ADDRESS. HEX LOCATION (00002852) IN CSECT(I7861 ) LENGTH(1) 363 564 
6 10 578 N00017 ADDRESS. HEX LOCATION (00002662) IN CSECT(I7861 ) LENGTH(2) 
771 F00150 ADDRESS. HEX LOCATION(000028BA) IN CSECT(I7861 ) LFNGTH(1) 366 
634 580 N00018 ADDRESS. HEX LOCATION (00002664) IN CSECT(I7861 ) LENGTH (2) 
779 F00160 ADDRESS. HEX LOCATION(000028F4) IN CSECT(I7861  ) LENGTH(1) 369 70 
649 583 N00019 ADDRESS. HEX LOCATION (00002668) IN CSECT(I7861 ) LENGTH(2) 
785 F00164 ADDRESS. HEX LOCATION (00002930) IN CSECT(I7861 ) LENGTH(1) 372 
652 5 86 N00020 ADDRESS. HEX LOCATION(0000266C) IN CSECT(I7861  ) LENGTH(2) 
815 F00185 ADDRESS. HEX LOCATION (00002AC4) IN CSECT(I7861 ) LENGTH(1) 375 81 
661 589 N00021 ADDRESS. HEX LOCATION (00002670) IN CSECT(I7861  ) LENGTH (2) 
823 F00189 ADDRESS. HEX LOCATION(00002B24) IN CSECT(I7861  ) LENGTH (1) 378 
664 592 N00022 ADDRESS. HEX LOCATION (00002674) IN CSECT(I7861  ) LENGTH (2) 
829 F00201 ADDRESS. HEX LOCATION (00002B60) IN CSECT(I7861 ) LENGTH(1) 381 587 
673 601 N00023 ADDRESS. HEX LOCATION (00002682) IN CSECT(I7861 ) LENGTH(2) 
839 F00221 ADDRESS. HEX LOCATION(00002BC2) IN CSECT(I7861 ) LENGTH(1) 384 
688 603 N00024 ADDRESS. HEX LOCATION (00002684) IN CSECT(I7861 ) LENGTH (2) 
2654 HEBLK ADDRESS. HEX LOCATION(0000376E) IN CSECT(I7861  ) LENGTH (2) 387 93 
2601 609 N00025 ADDRESS. HEX LOCATION (00002690) IN CSECT(I7861  ) LENGTH (2) 
1526 HOFF ADDRESS. X LOCATION (OQ002FF6) IN CSECT(I7861  ) LENGTH(4) 390 
1456 1461 tues 1b7 1° 1476. 1484 612 N00026 ADDRESS. HEX LOCATION (00002694) IN CSECT(I7861 ) LENGTH(2) 
1565 HON ADDRESS. HEX LOCATION(00003064) IN CSECT(I7861 ) LENGTH(4) 393 43 
1451 1486 621 N00027 ADDRESS. HEX LOCATION(000026A2) IN CSECT(I7861 ) LENGTH (2) 
978 HTOE ABSOLUTE. HEX VALUE (0000001A) 396 
2602 624 N00028 ADDRESS. HEX LOCATION(000026A6) IN CSECT(I7861 ) LENGTH(2) 
2029 IDCBCE1 ADDRESS. HEX LOCATION(0000336C) IN CSECT(I7861 ) LENGTH (2) 399 613 
1995 1996 633 N00029 ADDRESS. HEX LOCATION(000026B4) IN CSECT(I7861  ) LENGTH(2) 
2031 IDCBCE2 ADDRESS. HEX LOCATION(00003370) IN CSECT(I7861  ) LENGTH(2) 402 
2001 2002 6 36 N00030 ADDRESS. HEX LOCATION(000026B8) IN CSECT(I7861  ) LENGTH(2) 
2033 IDCBRAP ADDRESS. HEX LOCATION (00003374) IN CSECT(1I7861  ) LENGTH(2) 4O5 625 
1989 1990 639 N00031 ADDRESS. HEX LOCATION(000026BC) IN CSECT(I7861  ) LENGTH(2) 
2025 IDCBO ADDRESS. HEX LOCATION (00003364) IN CSECT(I7861  ) LENGTH (2) 408 531 
1228 2014 2015 648 N00032 ADDRESS. HEX LOCATION(000026CA) IN CSECT(I7861 ) LENGTH (2) 
2027 IDCB1 ADDRESS. HEX LOCATION (00003368) IN CSECT(I7861  ) LENGTH(2) 411 
1112 1227 1387 2008 2009 651 N00033 ADDRESS. HEX LOCATION(000026CE) IN CSECT(I7861  ) LENGTH (2) 
954 IDLE ABSOLUTE. HEX VALUE (00000002) 414 640 
1116 1238 391 1653 1722 2351 654 N00034 ADDRESS. HEX LOCATION(000026D2) IN CSECT(I7861 ) LENGTH(2) 
885 IN ABSOLUTE. HEX VALUE (00000023) 417. 519 
1528 1567 2337 2349 2468 657 N00035 ADDRESS. HEX LOCATION(000026D6) IN CSECT(I7861 ) LENGTH (2) 
2528 INTBL ADDRESS. HEX LOCATION(000035C8) IN CSECT(I7861 ) LENGTH(2) 420 
2563 660 N00036 ADDRESS. HEX LOCATION(000026DA) IN CSECT(I7861 ) LENGTH(2) 
2425 INTER ADDRESS. HEX LOCATION (00003530) IN CSECT(I7861 ) LENGTH(2) 423 655 
2530 663 N00037 ADDRESS. HEX LOCATION(000026DE) IN CSECT(I7861 ) LENGTH(2) 
2434 INTES ADDRESS. HEX LOCATION (00003548) IN CSECT(I7861  ) LENGTH(2) 426 475 
2429 666 N00038 ADDRESS. HEX LOCATION (000026E2) IN CSECT(I7861 ) LENGTH(2) 
2438 INTET ADDRESS. HEX LOCATION (00003550) IN CSECT(1I7861 ) LENGTH(2) u29 472 
2435 669 N00039 ADDRESS. HEX LOCATION (000026E6) IN CSECT(I7861  ) LENGTH (2) 
2465 INTOK ADDRESS. HEX LOCATION (00003554) IN CSECT(I7861  ) LENGTH(2) 432 
2529 672 NOO0O04O ADDRESS. HEX LOCATION(O000026EA) IN CSECT(1I7861  ) LENGTH(2) 
2487 INTRX ADDRESS. HEX LOCATION(00003584) IN CSECT(I7861 ) LENGTH (2) 435 
2482 248 675 N00041 ADDRESS. HEX LOCATION (000026EE) IN CSECT(I7861 ) LENGTH (2) 
2468 INTR1 ADDRESS. HEX LOCATION (0000355C) IN CSECT(I7861 ) LENGTH(2) 438 670 
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